home *** CD-ROM | disk | FTP | other *** search
/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / BitCheater.sit / bit chart next >
Text File  |  2004-02-18  |  2KB  |  80 lines
  1.  
  2. '~'A
  3. '                       Runtime : RNTM Lite.INCL
  4. '                           CPU : Carbon
  5. '                      Debugger : Off
  6. '               DIM'd Vars Only : On
  7. '              No Re-DIM'd Vars : On
  8. '                    CALL Req'd : Off
  9. '                 Register Vars : On
  10. '                MacsBug Labels : On
  11. '           Ary Bounds Checking : On
  12. '                     QB Labels : Off
  13. '                 Optimize STR# : On
  14. '         Make Line Start Table : Off
  15. '                 Show Warnings : On
  16. '~'B
  17.  
  18. dim as long a,b,c
  19.  
  20. a = &x1100110010101010
  21. b = &x0000111101010101
  22.  
  23. local fn showAB(op$)
  24. print
  25. print  "========================= ";
  26. print op$;
  27. print  " ========================= "
  28. print  "a =   00000000000000001100110010101010"
  29. print  "b =   00000000000000000000111101010101"
  30. print  "     ---------------------------------"
  31. end fn
  32.  
  33. fn showAB("and")
  34. print  "and   "bin$(a and  b)
  35. print 
  36. print "    *if both bits are 1, resulting bit is 1"
  37.  
  38.  
  39. fn showAB("or")
  40. print  "or    "bin$(a or   b)
  41. print 
  42. print "    *if either bit is 1, resulting bit is 1"
  43.  
  44.  
  45. fn showAB("nand")
  46. print  "nand  "bin$(a nand b)
  47. print 
  48. print "restated..."
  49. print  "a =   00000000000000001100110010101010"
  50. print "not b "bin$(not(b))
  51. print  "     ---------------------------------"
  52. print  "nand  "bin$(a nand b)
  53. print 
  54. print "    *bits are reversed on b [not(b)],"
  55. print "    *an 'and' is performed,"
  56. print "    *then if both bits are 1, resulting bit is 1"
  57.  
  58. fn showAB("xor")
  59. print  "xor   "bin$(a xor  b)
  60. print 
  61. print "    *if bits are different, resulting bit is 1"
  62.  
  63. fn showAB("nor")
  64. print 
  65. print "restated..."
  66. print  "a =   00000000000000001100110010101010"
  67. print  "not b "bin$(not(b))
  68. print  "     ---------------------------------"
  69. print  "nor   "bin$(a nor  b)
  70. print 
  71. print "    *bits are reversed on b [not(b)],"
  72. print "    *an 'or' is performed,"
  73. print "    *then if either bit is 1, resulting bit is 1."
  74.  
  75. fn showAB("a-(a and b)")
  76. print "a-a&&b"bin$((a-(a and b)))
  77. print 
  78. print "    *if there is a 1 in b the resulting bit is cleared."
  79.  
  80.